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LIFE 


DECU5 Program Library Write-up 


DECUS NO. 8-643 


ABSTRACT 


A program that executes Conway's game of LIFE as published 
in several Scientific American articles, under Mathematical Games. 
The universe consists of a 32 x 32 matrix. Births and deaths are 
computed according to the number of nearest neighbors: 


0,1 


cell dies of loneliness 


2,3,4 


cell lives 


5.6,7,8 -- cell dies of overcrowding 


Exactly 3 --a cell is born 

Printout of each successive generation is to a teletype. Features 
of the program include: 


1) Only desired generations are output 

2) Checking to see if universe has perished 

3) Checking to see if universe has stabilized 

4) Warning if boundary may be exceeded in future generation 

5) Allows the user to start over or alter the 
universe at any time. 
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Ihis program is based on articles by Conway in several "Scientific 
American" articles under the section Mathematical Games. The 
program took this idea and put it in a computer environment. 


DESCRIPTION 

The game consists of a universe, a 32 x 32 array. The size of 
the universe was limited by core availability (8K - 12 bit words). 
Each point in the universe is dead or alive, designated by 0 or 1 
respectively. An initial pattern of live points, or cells, is 
input. This is GENERATION number 0. GENERATION 1 and succeeding 
generations are computed by the following algorithm: 


If a live cell has 


0,1 nearest neighbors - it dies of loneliness in 

the next generation 

2,3,4 nearest neighbors - it lives (remains "live" 

in the next generation 

5j 6,7,8 nearest neighbors - it dies of loneliness 

(becomes dead) in the next 
generation 

If a dead cell has 

Exactly 3 nearest neighbors 

- it is born in the next 
generation (it becomes a 
"live" cell) 
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Figure 1 


nearest neighbors 
of a cell under 
consideration for 
birth or death in 
the next generation 
as described above 
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example dies 



the circled cell, although dead in this 
generation will be born in the next since 
it has exactly 3 nearest live neighbors. 


This type scanning is performed on all of the 32 x 32 cells in 
the array except for the perimeter cells that are always considered 
dead since they do not have 8 nearest neighbors. 

Each successive generation is computed in this manner. The process 
is actually a Markov chain since each successive generation depends 
only on the generation immediately preceding it. Each generation 
may be output to the teletype along with a count of live cells. 

PROGRAM REQUIREMENTS 

PDP8/E with minimum 8K 

8K Fortran, Sabr, LIB8(Fortran library), and Linking Loader 
- all included in OS/8 

COMPILING AND LOADING PROCEDURE (with OS/8) 

^R FORT 
*LIFE.BN<-LIFE 

_jR LOADER 

*LIFE$ ($ denotes altmode) 

J3T 

INPUT DEAD/LIVE DESIGNATION CHARS (the program is now running) 
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BASIC OPERATION 


The first request by the program is 

"INPUT DEAD/LIVE DESIGNATION CHARS" 

This is asking for 2 characters to be typed by the user, not separated 
by a blank. The first character is that which will be typed to 
represent a dead cell and the second character is that which will be 
typed to represent a live cell. A good choice is "space" for dead 
cells and an for live cells. Hence, one would type " 

The second request is 

"ENTER COORDINATES OF LIVE CELLS" 

The coordinates of the 32 x 32 universe are numbered top to bottom 
and left to right. 

1.1 1,2.1,3 ... 1,32 

2.1 2,2 .. . 

3,1 


32,1 . . . 32,32 

Figure 2 

These coordinates are input via fortran FORMAT(212). The input of 
a negative coordinate terminates the input. If a perimeter coordinate 
is typed, the program responds "OUT OF BOUNDS". 

FEATURES AND OPTIONS 

1) Switch Register bit 11 is used by the program to control output: 
bit 11 (0) — each generation is output 

bit 11 (1) — program responds "NEXT GENERATION TO OUTPUT" 

The user at this point types the number of the 
next generation desired to be output. 

If the user types "0", then the program starts over. 

If the user types the number of the present generation 
then he may alter the existing universe. 

Otherwise, no generations will be output until the 
generation corresponding to the number typed is reached. 

2) The program checks to see if the universe has died (ie. population 
of live cells is zero). If it has, the user is notified and the 
program starts over. 
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3) 


4) 


The program checks to see if the universe has stabilized fie 
no births or deaths will occur in the future generations), if 
this is true, the user is. notified. If bit 11 is set, the 
message "NEXT GENERATION TO OUTPUT" will be typed and the 
user may take appropriate action. 

The program checks to see if the live cells may grow off the 
e ge of the 32 x 32 universe in the next generation. If it 
y the program notifies the user. 

If bit 11 is set to 1, then the universe is output 
Otherwise it continues computing generations. 


Refer to Scientific American for maximum enjoyment of this program 
An example run follows. 
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5 
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7 

It 

20 

i 1 

40 

41 

42 

43 

44 

45 

45 


50 

60 


70 

Ck 

50 

107 

108 

105 

100 

105 

110 


51 

52 


WHIT£(1 0 2) ICELL<32,32),ISAVE(32,32) » 

»ESI6NATI0N 

FORMA TC2A1) 

BO 1 J =1,32 
BO 1 1=1,32 
ISAVE(I ,J ) = » 

IC EL L (I, J ) = 0 
IP OP : 0 


IROW(32) 
CHARS*) 


IGEN=0 
NGEN = 0 
INERT=0 
WRITEC1,10) 

l£T,V'™ ER COORDINATES OF LIVE CELLS*) 
READC1 ,30)1 ,J 

FOR MAT (212) 

IFCI) 50,40,40 
IF(I-l) 44,44,41 
IFCI -32)42,4^1,44 
IF(J-l) 44,44,43 
IFCJ-32)45,44,44 
WRI TEC 1,45)1 ,J 

F0RMATC2I2,* OUT OF SOUNDS*) 

GO TO 20 


ICELLCI ,J )=1 
IPOP = IPOP+l 
GO TO 20 


WRITEC 1,60) IGEN.IPOP 
F0RMATC//’GENERATI0N *14.5X 
00 100 1=1,32 
NONE =0 


’POPULATION 


BO Si J =1,32 
IFCICELLCI ,J)) 80, 70,80 
IROWCJ ) = I0EAD 
GO TO 50 
IROW (J ) = ILI VE 
NONE = l 
CONTINUE 

IFCNONE) 107,108,107 

3O R TO £ l ( i0 Ui) aft0WCJ) » J=1 ^2) 
WRITEC1,105) 

FORMAT CIX) 

CONTINUE 


IFCINERT) 51,105,51 
NGEN= IGEN+ 1 
FORMATC32A1) 

CLA CLL 
7604 
A ND (1 
BCA \IN£) 

IFCIND) 51,55,51 
WRI TEC 1,52) 

FORMAT( 'NEXT GENERATION TO OUTPUT?*) 
REA •( 1,53) NGEN 


*14) 
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53 FORMAT (I 4) 

55 IF(NGEN-IGEN) 55,7,115 

115 I POP = 0 

DO 120 J =2,31 
00 120 1=2,31 
ISAVECI ,J) = ICELLCI,J) 

120 ICELLCI ,J )=0 

IER€01=1 

I NER T = 1 
DO 330 J =2,31 
00 330 1=2,31 
NBR =0 

IFCISAVECI-1 ,J-i)) 140,140,130 
130 NBR = NBR+1 

140 IFCISA VECI -1 ,J ) ) 1€0,160,150 
150 NBR = NBR + 1 

160 IFCISAVECI-1 ,J + 1 )) 180,180,170 

w 70 NBR = NBR+1 

180 IFCISAVECI,J-1)) 200,200,150 

150 NBR = N6R + 1 

200 IFCISAVECI ,J + 1)> 220,220,210 

210 NBR = NBR+1 

220 IFCISAVECI+1,J-1)) 240,240,230 

230 NBR=NBR+1 

240 IF CISAVECI + 1 ,J )) 260,260,250 

250 NBR = NBR+1 

260 IFCISAVECI+1,J+1)) 280,280,270 

2 70 NBR = NBR+1 

280 IFC2-NBR) 300,300,290 

250 ICELLCI ,J) = 0 

IFCISAVECl, J ) ) 295,330,295 
255 INER T =0 

GO TO 330 

300 IFC3-NBR) 310,320,310 

310 IFCISAVECI ,J )) 315,290,315 

-515 IF C 5 - NBR ) 250,250,320 

S*„20 ICELLCI ,J) = 1 

IFCISAVECI ,J )) 325,324,325 

324 I NERT =0 

325 IP0P=IP0P+l 

IFCl*2) 321,328,321 

321 IFCI-31) 322,328,322 

322 IFCJ-2) 323,328,323 

323 IFCJ-31) 330,328,330 

328 IER 601 =0 

330 CONTINUE 

IGEN=IGEN+1 
IFCINERT) 390,334,390 

334 IFCIPOP) 335,340,335 

335 IFCIER601) 380,360,380 

340 WRITEC1,350) IGEN 

350 FORMAT C ’THE UNIVERSE MAS DIED AFTER’14, * GENERATIONS') 
GO TO 55 
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^ co in co w 


14 ) 


36* 

7* 


3 75 
388 



WRITE(1,37§) I GEN 

FORMAT( '*** WARNING— 3OUNBARY MAY BE EXCEEBEB - GENERATION * 

C LA L LL 

76*4 

AN8 (t 

DCA \1ND 

IFCIN8) 375,38*,375 
NGEN=IGEN 

IF(NGEN-IGEN) 115,5*,115 
WRITEC 1,409) IGEN 

FORMATC ’THE UNIVERSE MAS STABILIZED-GENERATION*14) 

GO TO 5* * 

CALL EXIT 

STOP 

END 
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.R FORT 

*life.bn<life 


.R LOADER 
*LIFES 
.ST 


I NPUT 


* 


ENTER 

1510 

1511 

1512 

1513 

1514 

1516 

1517 



-1 


DEAD/LIVE DESIGNATION CHARS 
COORDINATES OF LIVE CELLS 


GENERATION 0 POPULATION 10 





next generation to output? 

2 

GENERATION 2 POPULATION 16 
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NEXT GcNE^ATION TO OUTPUT? 

3 

ENTER COORDINATES OF LIVE CELLS 

1515 

1516 
-1 


GENERATION 0 POPULATION 2 



THE UNIVERSE HAS DIED AFTER 1 
ENTER COORDINATES OF LIVE CELLS 


1 GENERATIONS 
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